(when (not (= (vector-length command-line-arguments) 2))
   (display "Usage: monos -f decompose.scm generator-xml-file method\n")
   (exit))

(let* ((file (vector-ref command-line-arguments 0))
       (uri (file->uri file))
       (generator (unmarshall (parse-xml-from-uri->document uri)) ) 
       (decomposition (decompose-ideal generator method: (string->symbol (vector-ref command-line-arguments 1)))) )
   (write decomposition) )
   ;;(marshall decomposition (xml-writer (current-output-port)) ))

